Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/AUDIO/SWEEPGEN/MAINFORM.DFM/MAINFORM.txt

Text File | 1996-05-31 | 3KB | 156 lines

object Form1: TForm1
  Left = 212
  Top = 104
  BorderStyle = bsSingle
  Caption = 'David'#39's Audio Sweep Generator'
  ClientHeight = 285
  ClientWidth = 423
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 423
    Height = 232
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 72
      Top = 168
      Width = 25
      Height = 13
      Alignment = taCenter
      Caption = 'to'
    end
    object Label2: TLabel
      Left = 152
      Top = 168
      Width = 16
      Height = 13
      Caption = ' Hz'
    end
    object lblFnow: TLabel
      Left = 48
      Top = 200
      Width = 41
      Height = 13
      Caption = 'fNow Hz'
    end
    object grpFrequencyRange: TRadioGroup
      Left = 8
      Top = 8
      Width = 161
      Height = 137
      Caption = ' Frequency Range '
      Items.Strings = (
        'Wide  (20Hz .. 20KHz)'
        'HF  (1KHz .. 15KHz)'
        'Speech  (300Hz .. 3KHz)'
        'LF  (50Hz .. 1KHz)')
      TabOrder = 0
      OnClick = grpFrequencyRangeClick
    end
    object grpSweepMode: TRadioGroup
      Left = 192
      Top = 8
      Width = 113
      Height = 65
      Caption = ' Sweep Mode '
      Items.Strings = (
        'Linear'
        'Log')
      TabOrder = 1
      OnClick = grpSweepModeClick
    end
    object grpSweepSpeed: TRadioGroup
      Left = 192
      Top = 96
      Width = 113
      Height = 121
      Hint = ' Changes the time between start and end of sweep '
      Caption = ' Sweep Speed '
      Items.Strings = (
        'Fast (smooth)'
        'Fast (stepped)'
        'Slow'
        'No sweep')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = grpSweepSpeedClick
    end
    object grpOutputLevel: TRadioGroup
      Left = 328
      Top = 8
      Width = 81
      Height = 209
      Hint = ' Click to alter the volume '
      Caption = ' Output Level '
      Items.Strings = (
        '0dB'
        '-3dB'
        '-6dB'
        '-9dB'
        '-12dB'
        '-15dB'
        '-18dB'
        '-20dB')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = grpOutputLevelClick
    end
    object edtF1: TEdit
      Left = 16
      Top = 168
      Width = 57
      Height = 20
      TabOrder = 4
      Text = 'F1'
    end
    object edtF2: TEdit
      Left = 96
      Top = 168
      Width = 49
      Height = 20
      TabOrder = 5
      Text = 'F2'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 232
    Width = 423
    Height = 53
    Align = alBottom
    TabOrder = 1
    object btnExit: TButton
      Left = 344
      Top = 16
      Width = 57
      Height = 25
      Caption = 'Exit'
      TabOrder = 0
      OnClick = btnExitClick
    end
    object btnStart: TButton
      Left = 176
      Top = 16
      Width = 57
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 1
      OnClick = btnStartClick
    end
  end
end